unit UAddEditBase;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UBase, dxBevel, cxGraphics,
  cxLookAndFeels, cxLookAndFeelPainters, Vcl.Menus, dxSkinsCore,
  dxSkinOffice2016Colorful, Vcl.StdCtrls, cxButtons, System.ImageList,
  Vcl.ImgList, cxImageList, cxControls, cxContainer, cxEdit, cxGroupBox,
  Vcl.ExtCtrls;

type
  TfrmAddEditBase = class(TfrmBase)
    btnSave: TcxButton;
    btnClose: TcxButton;
    cxSmallImages: TcxImageList;
    pnlTop: TPanel;
    pnlBottom: TPanel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    procedure btnCloseClick(Sender: TObject);
  protected
    FParentHandle: HWND;
    FSelectID: Integer;
    FSelectExID: Integer;
    FTempID: Integer;
    FSelectKey: string;
    procedure SetFParentHandle(handle: HWND);
    procedure SetFSelectID(ID: Integer);
    procedure SetFSelectExID(ID: Integer);
    procedure SetFTempID(ID: Integer);
    procedure SetFSelectKey(key: string);
  private
    { Private declarations }
  public
    { Public declarations }

    property ParentHandle: HWND read FParentHandle write SetFParentHandle;
    property SelectID: Integer read FSelectID write SetFSelectID;
    property SelectExID: Integer read FSelectExID write SetFSelectExID;
    property TempID: Integer read FTempID write SetFTempID;

    property SelectKey: string read FSelectKey write SetFSelectKey;
  end;

var
  frmAddEditBase: TfrmAddEditBase;

implementation

{$R *.dfm}

procedure TfrmAddEditBase.btnCloseClick(Sender: TObject);
begin
  inherited;

  Close;
end;

procedure TFrmAddEditBase.SetFParentHandle(handle: HWND);
begin
  FParentHandle := handle;
end;

procedure TFrmAddEditBase.SetFSelectID(ID: Integer);
begin
  FSelectID := ID;
end;

procedure TFrmAddEditBase.SetFSelectExID(ID: Integer);
begin
  FSelectExID := ID;
end;

procedure TFrmAddEditBase.SetFTempID(ID: Integer);
begin
  FTempID := ID;
end;

procedure TFrmAddEditBase.SetFSelectKey(key: string);
begin
  FSelectKey := key;
end;

end.
